home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n20.arc / XVI_UD3.XTS < prev   
Text File  |  1990-10-29  |  2KB  |  60 lines
  1. ; XVI_UD3.XTS
  2. ; PC MagNet Utilities Database Down Load, Part Three
  3. ; This Script is run if an error was encountered
  4. ; while on-line.
  5. ; Rick Ayre, 5.1.90.
  6.  
  7. CApture off                          ; Turn off screen capture.
  8. ALarm 1 Now
  9.  
  10. Label clear_keys
  11.  
  12. When -                               ; Clear a when condition
  13.  
  14. FKey A1 ""                           ; Clear function keys Alt-1
  15. FKey A2 ""                           ; through Alt-5 so we can
  16. FKey A3 ""                           ; store our file names as
  17. Fkey A4 ""                           ; variables in them.
  18. Fkey A5 ""
  19.  
  20. SCreen L wy                          ; Change color of command line
  21.  
  22. LAbel what_files                     ; Store file names in Alt function keys
  23.  
  24.  ASk @A1 Name of file to download:   ; Get name of firt file
  25.  IF @A1 = "" JUmp what_next          ; Start over if no name here
  26.  
  27.  ASk @A2 Next file to download (Press Enter if done.):
  28.  IF @A2 = "" JUmp get_files          ; Start downloads when no more names
  29.  
  30.  ASk @A3 Next file to download (Press Enter if done.):
  31.  IF @A3 = "" JUmp get_files
  32.  
  33.  ASk @A4 Next file to download (Press Enter if done.):
  34.  IF @A4 = "" JUmp get_files
  35.  
  36.  ASk @A5 Last file to download (Press Enter if done.):
  37.  IF @a5 = "" JUmp get_files
  38.  
  39. LAbel get_files
  40.  
  41. DO A5
  42.  
  43. LAbel what_next                      ; Ask if you want to restart.
  44.  
  45. ASK Start Over (Y/N):
  46.  
  47.  SCreen L kw
  48.  IF Nn JUmp get_off
  49.  IF yY JUmp what_files
  50.  
  51. Label get_off                        ; Log off and hang up phone.
  52.  
  53.    REply OFF |                       ; Log off CompuServe.
  54.    WAit quiet 50                     ; Wait for inactivity.
  55.    BYe                               ; Break phone line connection.
  56.  
  57. ENd
  58.  
  59. ; This Script calls XVI_UD2.XTS to continue with the file down load.
  60.